/ Revista do CD-ROM 30 / CD-ROM 30 / CD-ROM 30.iso / aplicat / QuarkX / QXDemo.exe / 0 / STRQ / 805

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 16 00 2f 4d 4e 7b 31 20 | 69 6e 64 65 78 20 6c 65 |../MN{1 |index le|
|00000010| 6e 67 74 68 20 2f 4c 65 | 6e 20 65 78 63 68 20 64 |ngth /Le|n exch d|
|00000020| 65 66 20 64 75 70 20 6c | 65 6e 67 74 68 20 4c 65 |ef dup l|ength Le|
|00000030| 6e 20 61 64 64 20 73 74 | 72 69 6e 67 20 64 75 70 |n add st|ring dup|
|00000040| 00 4c 65 6e 20 34 20 2d | 31 20 72 6f 6c 6c 20 70 |.Len 4 -|1 roll p|
|00000050| 75 74 69 6e 74 65 72 76 | 61 6c 20 64 75 70 20 30 |utinterv|al dup 0|
|00000060| 20 34 20 2d 31 20 72 6f | 6c 6c 20 70 75 74 69 6e | 4 -1 ro|ll putin|
|00000070| 74 65 72 76 61 6c 7d 42 | 00 2f 46 46 7b 64 75 70 |terval}B|./FF{dup|
|00000080| 20 32 35 36 20 73 74 72 | 69 6e 67 20 63 76 73 20 | 256 str|ing cvs |
|00000090| 28 7c 5f 5f 5f 5f 5f 5f | 29 20 65 78 63 68 20 4d |(|______|) exch M|
|000000a0| 4e 20 63 76 6e 20 64 75 | 70 20 46 6f 6e 74 44 69 |N cvn du|p FontDi|
|000000b0| 72 65 63 74 6f 72 79 00 | 65 78 63 68 20 6b 6e 6f |rectory.|exch kno|
|000000c0| 77 6e 20 7b 65 78 63 68 | 7d 69 66 20 70 6f 70 20 |wn {exch|}if pop |
|000000d0| 66 69 6e 64 66 6f 6e 74 | 7d 42 00 2f 53 79 6d 62 |findfont|}B./Symb|
|000000e0| 6f 6c 20 46 46 20 64 65 | 66 00 2a 2a 2a 00 2f 48 |ol FF de|f.***./H|
|000000f0| 65 6c 76 65 74 69 63 61 | 20 66 69 6e 64 66 6f 6e |elvetica| findfon|
|00000100| 74 20 64 75 70 20 6d 61 | 78 6c 65 6e 67 74 68 20 |t dup ma|xlength |
|00000110| 31 20 61 64 64 20 64 69 | 63 74 20 62 65 67 69 6e |1 add di|ct begin|
|00000120| 00 7b 31 20 69 6e 64 65 | 78 2f 46 49 44 20 6e 65 |.{1 inde|x/FID ne|
|00000130| 20 32 20 69 6e 64 65 78 | 2f 55 6e 69 71 75 65 49 | 2 index|/UniqueI|
|00000140| 44 20 6e 65 20 61 6e 64 | 7b 64 65 66 7d 7b 70 6f |D ne and|{def}{po|
|00000150| 70 20 70 6f 70 7d 69 66 | 65 6c 73 65 7d 66 6f 72 |p pop}if|else}for|
|00000160| 61 6c 6c 00 2f 50 61 69 | 6e 74 54 79 70 65 20 32 |all./Pai|ntType 2|
|00000170| 20 64 65 66 00 2f 53 74 | 72 6f 6b 65 57 69 64 74 | def./St|rokeWidt|
|00000180| 68 20 38 20 64 65 66 20 | 63 75 72 72 65 6e 74 64 |h 8 def |currentd|
|00000190| 69 63 74 20 65 6e 64 00 | 2f 64 65 6d 6f 68 65 6c |ict end.|/demohel|
|000001a0| 20 65 78 63 68 20 64 65 | 66 69 6e 65 66 6f 6e 74 | exch de|finefont|
|000001b0| 5b 31 32 30 20 30 20 30 | 20 2d 31 32 30 20 30 20 |[120 0 0| -120 0 |
|000001c0| 30 5d 6d 61 6b 65 66 6f | 6e 74 20 73 65 74 66 6f |0]makefo|nt setfo|
|000001d0| 6e 74 00 31 20 64 69 63 | 74 20 62 65 67 69 6e 00 |nt.1 dic|t begin.|
|000001e0| 73 74 72 69 6e 67 2f 71 | 78 70 73 74 72 20 65 78 |string/q|xpstr ex|
|000001f0| 63 68 20 64 65 66 20 38 | 5b 33 20 69 6e 64 65 78 |ch def 8|[3 index|
|00000200| 20 30 20 30 20 35 20 69 | 6e 64 65 78 20 6e 65 67 | 0 0 5 i|ndex neg|
|00000210| 20 30 20 37 20 69 6e 64 | 65 78 5d 00 7b 63 75 72 | 0 7 ind|ex].{cur|
|00000220| 72 65 6e 74 66 69 6c 65 | 20 71 78 70 73 74 72 20 |rentfile| qxpstr |
|00000230| 72 65 61 64 73 74 72 69 | 6e 67 20 70 6f 70 7d 00 |readstri|ng pop}.|
|00000240| 7b 63 75 72 72 65 6e 74 | 66 69 6c 65 20 71 78 70 |{current|file qxp|
|00000250| 73 74 72 20 72 65 61 64 | 68 65 78 73 74 72 69 6e |str read|hexstrin|
|00000260| 67 20 70 6f 70 7d 00 7b | 63 75 72 72 65 6e 74 66 |g pop}.{|currentf|
|00000270| 69 6c 65 20 71 78 70 73 | 74 72 20 72 65 61 64 68 |ile qxps|tr readh|
|00000280| 65 78 73 74 72 69 6e 67 | 20 70 6f 70 20 64 75 70 |exstring| pop dup|
|00000290| 20 30 20 65 78 63 68 7b | 32 35 35 20 65 78 63 68 | 0 exch{|255 exch|
|000002a0| 20 73 75 62 20 33 20 63 | 6f 70 79 20 70 75 74 20 | sub 3 c|opy put |
|000002b0| 70 6f 70 20 31 20 61 64 | 64 7d 66 6f 72 61 6c 6c |pop 1 ad|d}forall|
|000002c0| 20 70 6f 70 7d 00 73 79 | 73 74 65 6d 64 69 63 74 | pop}.sy|stemdict|
|000002d0| 2f 69 6d 61 67 65 20 67 | 65 74 00 2f 69 6d 61 67 |/image g|et./imag|
|000002e0| 65 20 6c 6f 61 64 00 65 | 78 65 63 00 67 73 61 76 |e load.e|xec.gsav|
|000002f0| 65 20 31 20 73 65 74 67 | 72 61 79 20 6e 65 77 70 |e 1 setg|ray newp|
|00000300| 61 74 68 20 30 20 30 20 | 6d 6f 76 65 74 6f 20 30 |ath 0 0 |moveto 0|
|00000310| 20 31 20 72 6c 69 6e 65 | 74 6f 20 31 20 30 20 72 | 1 rline|to 1 0 r|
|00000320| 6c 69 6e 65 74 6f 20 30 | 20 2d 31 20 72 6c 69 6e |lineto 0| -1 rlin|
|00000330| 65 74 6f 20 63 6c 6f 73 | 65 70 61 74 68 20 65 6f |eto clos|epath eo|
|00000340| 66 69 6c 6c 20 67 72 65 | 73 74 6f 72 65 00 2f 73 |fill gre|store./s|
|00000350| 74 61 72 74 6e 75 70 20 | 77 68 65 72 65 7b 62 65 |tartnup |where{be|
|00000360| 67 69 6e 20 73 74 61 72 | 74 6e 75 70 20 65 6e 64 |gin star|tnup end|
|00000370| 7d 69 66 00 65 70 6e 75 | 6c 00                   |}if.epnu|l.      |
+--------+-------------------------+-------------------------+--------+--------+